home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok22.lha / Scroll / Scroll.def next >
Text File  |  1993-08-15  |  1KB  |  38 lines
  1. (******************************************************
  2.  *
  3.  * :Program.    Scroll.def
  4.  * :Author.     Holger Gzella
  5.  * :Address.    Freischöffenweg 12  D-4600 Dortmund 16
  6.  * :Phone.      (0231) 85 16 02
  7.  * :Version.    1.0
  8.  * :Date.       9/7/89  20:36:43
  9.  * :Copyright.  PD
  10.  * :Language.   Modula-2
  11.  * :Translator. M2Amiga 3.2d
  12.  * :Contents.   Procedure to create a scrolltext
  13.  * :Remark.     For Intros Assembler seems to be better,
  14.  * :Remark.     this is to create an "About"-message or
  15.  * :Remark.     something like this. Enjoy!
  16.  * :Remark.     Idea is from an C-program (urgh!) in the
  17.  * :Remark.     AMIGA-Sonderheft 4 by Christian Wolf.
  18.  ******************************************************)
  19.  
  20. DEFINITION MODULE Scroll;
  21.  
  22. FROM Graphics IMPORT RastPortPtr;
  23.  
  24. (* This is the magic stuff ... usage:
  25.    port : RastPortPtr you want to scroll in (screen or window)
  26.    w    : width of scrolling area
  27.    s    : speed of scroll (only 1-8 makes sense)
  28.    r    : number of repititions of -1 for scrolling until LMB
  29.    l    : number of chars to scroll
  30.    y    : y-coordinate of scrolling area
  31.    Stuff: ARRAY OF CHAR containing to string to scroll
  32. *)
  33.  
  34. PROCEDURE ScrollX(port:RastPortPtr; w,s,r,l,y:INTEGER; Stuff:ARRAY OF CHAR);
  35.  
  36. END Scroll.
  37.  
  38.